# Table G1

#####
rm(list=ls(all=TRUE))

library(MASS)
library(stargazer)

#### Dataset Original ####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Data Rep")
load("data_empirics_length_rep.Rdata")

## Predicted length of speech

model_6.0.cat <- glm.nb(length_speech_combined_session ~ female_dum + ideology_ext + 
                          committee_chair + seniority + type_member +
                          party_match_pres + 
                          election_year  +
                          mean_length_leg +
                          negative_lang_leg_session + dum_mujeres_session +
                          interruption_cat*female_dum +
                          factor(cohort), 
                        data = data_empirics_length)

#### TABLE: Setup for strategic: #####
setwd("/Users/sebastian/Dropbox/The politics of interruptions - JOP RR/Replication Files/Table")

stargazer(model_6.0.cat,
          type = "html", style = "ajps", out = "tableG1.html",
          covariate.labels = c("Woman","Ideological Extremism","Committee Chair",
                               "Seniority", "National MC","Same Party as Leg. Pres.",
                               "Election Year", 
                               "Mean Length of MC (Speech)",
                               "Negative Language (Speech)", "Topic: Women",
                               "Interruption: Other", "Interruption: Procesural",
                               "Interruption: Aggressive", 
                               "Interruption: Other x Woman", "Interruption: Procesural x Woman",
                               "Interruption: Aggressive x Woman"),
          omit = "factor",
          no.space=TRUE,
          dep.var.labels=c("Length of Speech"),
          digits=3,
          df = FALSE,
          keep.stat = c("theta", "n"))
